|
| !Run file for !MPEGPlug
|
Set MPEGPlugIn$Dir <Obey$Dir>

Set MPEGPlugIn$LogFile <Wimp$ScrapDir>.MPEGLog
RMEnsure UtilityModule 4.50 Set MPEGPlugIn$LogFile <MPEGPlugIn$Dir>.Log

RMEnsure MPEG 0.08 SetEval MPEG%Users 0
RMEnsure MPEG 0.08 RMLoad <MPEGPlugIn$Dir>.MPEG
RMEnsure MPEG 0.08 Error You need the MPEG player module
SetEval MPEG%Users <MPEG%Users>+1

WimpSlot -min 320k -max 320k
Run <MPEGPlugIn$Dir>.!RunImage -plugin <MPEGPlugIn$Dir>.Plugin %*0
| Remove <MPEGPlugIn$Dir>.!RunImage

SetEval MPEG%Users <MPEG%Users>-1
If "<MPEG%Users>" = "0" Then RMKill MPEG
